home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / 315 2 files Archive.sit / Any plain-text files / ? Any plain-text file 85 < prev    next >
Text File  |  1995-01-03  |  3KB  |  3 lines
  1. Listing 1.  Listing of CanDoTextReader Deck from ThePrinter************** Deck "CanDoTextReader"* Time 23:29:07* Date 03/23/94*************************** Card(s) in deck.*  Card "TextReader"************** 1 Card(s), 1 were printed.*************************** Natural order of Cards*  Card "TextReader"*************************** There are no Global routines in this deck.*************************** Card "TextReader"  BeforeAttachment ; used to be OnStartup    MakeDocument "TextDoc"  EndScript  Window "UserWindow"    Definition      Origin 77,0      Size 320,200      Title "CanDo Text File Reader"      NumberOfColors 4,69632      WindowColors 0,1,0 ; Detail, Block, Background      WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON       WindowFlags ACTIVATE TOFRONT WORKBENCH     EndScript    OnCloseButton      Quit    EndScript    OnResized      MoveObject "SelectFile",(WindowWidth%2)-95,WindowHeight-20    EndScript  EndObject  Memo "FileMemo"    Definition      Origin 11,16      Size 285,156      Font "topaz",8 ; FontName, PointSize      PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2      TextColors 1,0,JAM2  ; PenA, PenB, DrawMode      Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen      Document "TextDoc" ; where the text comes from      ScrollBars RIGHT       InputStyle NORMAL     EndScript  EndObject  TextButton "SelectFile"    Definition      Origin 65,180      Font "topaz",11 ; FontName, PointSize      PrintStyle BOLD SHADOW ,2,3 ; Style, Pen1, Pen2      TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode      Text " Select File to View "      Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen      Highlight COMPLEMENT       ButtonFlags NONE     EndScript    OnRelease      Let Heading="Select a text file to view"      Let FNNew=AskForFileName(FN,Heading,WindowX+100,WindowY+100)      If FNNew<>""        Let FN=FNNew        OpenFile FN,"FileBuf",READONLY ,OLDFILE         GetFileInfo FN,FNSize        FileReadChars "FileBuf",TextVar,FNSize        Close "FileBuf"        Clear DOCUMENT         Type TextVar        MoveCursorTo STARTOF DOCUMENT       EndIf    EndScript  EndObject* End of Card "TextReader"*************f∞y ├│3 ∞`╧µΘDz⌡  ΘÇ▄|╛?kδ    gßêo3A≡@` ╠< |╝═├╛?kδaÅ∞ΘDz⌡  Θü£x╢3cδ    faêg3AÇ@ ■f 
  2. l£═ ├╢3cδcΦΘDz⌡  Θâp│3c ∞    faêc3AÇ@   f0`fî═ ├│3c ∞fαΘDz⌡  Θåp│3c ∞f`╚cAÇ@    <~ 
  3. fîy ┴æ│3c